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W związku z wprowadzeniem zmian rozwojowych w 
oprogramowaniu, wprowadza się do pierwszego wydania 
podręcznika "Podręcznik użytkownika mikrokomputera 
ELWRO 800 Junior" następujące uzupełnienia. 


V punkcie 4.2 na stronie 38 należy dodać następujący 
tekst: 


Szczególnym zleceniem jest zlecenie reinicjacji systemu, 
zwane też "gorącym startem” lub "restartem" sytemu. Zlecenie 
to jest wywoływane znakiem °C podanym bezpośrednio po znakach 
zgłoszenia systemu. Zlecenie to powoduje ponowne załadowanie 
systemu operacyjnego i uaktywnienie zmiennych systemowych. 

Załadowanie systemu operacyjnego po włączeniu 


mikrokomputera nazywamy inicjacją lub "zimnym starten*. 


Rozdział 6 należy uzupełnić opisami nowych zleceń 


nierezydentnych. 
ZLECENIE SPBAS 


Zlecenie SPBAS powoduje przejście mikrokomputera z trybu 
pracy CP/J do trybu pracy Spectrum. Format zlecenia jest 
następujący: 


SPBAS 


Po wykonaniu zlecenia SPBAS mikrokomputer przechodzi do 
takiego stanu, w jakim znajduje się po sprzętowym zerowaniu 


lub po włączeniu napięcia zasilającego. 
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ZLECENIE UDIR 


Zlecenie UDIR (ang. User DIRectory - katalog użytkownika) 
służy do wyświetlania katalogów plików użytkowników (por. p. 
7.1). Zlecenie UDIR przyjmuje następujące postaci: 


UDIR 
UDIR d: 
UDIR n 
UDIR d: n 


gdzie d jest nazwą dysku, a n - numerem użytkownika. Numer 
użytkownika jest podawany w postaci szesnastkowej jako liczba 
z zakresu od 0 do F. 

Jeżeli przy wywołaniu zlecenia nie zostanie podana nazwa 
dysku, to złecenie będzie dotyczyło dysku bieżącego. Jeżeli 
przy wywołaniu ziecenia nie zostanie podany numer użytkownika, 
to koleino zostaną wyświetlone katalogi wszystkich 
użytkowników. 

Pliki są wyświetlane w porządku alfabetycznym. Oprócz 
nazw podstawowych i rozszerzeń nazwy plików, jest wyświetlana 
liczba bloków zajmowanych przez plik, wielkość pliku wyrażona 
w kilobajtach oraz atrybuty dostępu do pliku (SYS i R/O). 
Wyświetlanie katalogu jest zatrzymywane po zapełnieniu ekranu 
i wznawiane po naciśnięciu dowolnego klawisza. 

Jeżeli zlecenie UDIR zostało wywołane bez podania numeru 
użytkownika, to po zakończeniu wyświetlania katalogu danego 
użytkownika należy wcisnąć klawisz ESC, w celu zakończenia 
działania zlecenia, lub dowolny inny klawisz, jako żądanie 


wyświetlenia katalogu kolejnego użytkownika. 
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ZLECENIE PUBLIC 


Zlecenie PUBLIC służy do nadawania plikom atrybutów SYS i 
R/0. Format zlecenia jest następujący: 


PUBLIC nazwa_pliku 
gdzie nazwa_pliku jest jednoznaczną nazwą pliku. 
Nazwa pliku może być poprzedzona nazwą dysku. Jeśli plik o 


wskazanej nazwie nie występuje, to jest wyświetlany komunikat: 


Brak pliku 


ZLECENIE LOCAL 


Zlecenie LOCAL służy do nadawania plikom atrybutów DIR i 
R/V. Format zlecenia jest następujący: 


LOCAL nazwa_pliku 
gdzie nazwa_pliku jest jednoznaczną nazwą pliku. 
Nazwa pliku może być poprzedzona nazwą dysku. Jeżeli plik o 
wskazanej nazwie nie istnieje, to jest wyświetlany komunikat: 
Brak pliku 
Plik, który miał atrybuty SYS i R/O, po wydaniu zlecenia LOCAL 


przechodzi do katalogu tego użytkownika, który to zlecenie 
wydał. 
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ZLECENIE USER 


Zlecenie USER (ang. USER - użytkownik) służy do zmiany 
numeru użytkownika (por. p. 7.1). Format zlecenia jest 


następujący: 

USER n 
gdzie n jest numerem użytkownika. Wumer może być podany 
dziesiętnie, jako liczba z zakresy od 0 do 15, lub 
szesnastkowo, jako liczba z zakresu od 0 do F. 

Zlecenie DISKCOPY 

Zlecenie DISKCOPY (ang. DISK COPY — kopiowanie dysku) 
służy do fizycznego kopiowania dyskietek. Format zlecenia jest 
następujący: 


DISKCOPY dl:=d2: 


gdzie d2 jest nazwą dysku źródłowego, a dl nazwą dysku 
docelowego (dl może być równe d2), lub 


DISKCOPY 

Po wywołaniu zlecenia jest wyświetlany następujący napis: 
Program kopiujący wersja x.x 

gdzie x.x jest numerem wersji zlecenia. , 

Po podaniu zlecenia w drugiej postaci jest wyświetlany 


konunikat: 


Podaj dysk źródłowy (A: /B:) 
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Następnie jest wyświetlany komunikat: 
Dyskietka źródłowa w napędzie d: 


gdzie d jest nazwą dysku źródłowego, podaną przy wywołaniu 
zlecenia lub w odpowiedzi na wyświetlony komunikat. Jeżeli 
zlecenie było podane w drugiej postaci, to jest wyświetlany 
kolejny komunikat: 


Podaj dysk docelowy (A:/B:) 
Następnie jest wyświetlany komunikat: 


Dyskietka nagrywana w napędzie d: 


naciśnij dowolny klawisz 


gdzie d jest nazwą dysku docelowego, podaną przy wywołaniu 
zlecenia lub w odpowiedzi na wyświetlony komunikat. Po 
wciśnięciu klawisza następuje kopiowanie zawartości dyskietki 
źródłowej na dyskietkę docelową. Na ekranie są wyświetlane 
numery kopiowanych ścieżek. W przypadku, gdy dyskiem źródłowym 
i docelowym jest ten sam dysk, to podczas kopiowania są 


wyświetlane komunikaty: 

włóż dyskietkę źródłową i naciśnij dowolny klawisz 
oraz 

Włóż dyskietkę nagrywaną i naciśnij dowolny klawisz 


Po zakończeniu kopiowania jest wyświetlany komunikat: 


Kopiowanie zakończone 
Zapis następnej dyskietki ? (T/N) 


Wpisanie litery *T* umożliwia powtórzenie operacji kopiowania, 
natomiast wpisanie litery "N" kończy działanie zlecenia. 
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Zlecenie DISKCOPY moze być wykonywane tylko przez 
mikrokomputery wyposażone we własne stacje dysków. 


ZLECENIE SUBMIT 


Zlecenie SUBMIT służy do wykonywania ciągu zleceń 
zapisanych w pliku o dowolnej nazwie podstawowej i 
rozszerzeniu SUB, nazywanym plikiem zleceń. Plik ten musi być 
założony przed wydaniem zlecenia SUBMIT, za pomocą dowolnego 


edytora. Format zlecenia jest następujący: 
SUBMIT nazwa_pliku lista_parametrów 


Nazwa pliku będąca parametrem zlecenia może mieć dowolne 
rozszerzenie. Jednak bez względu na podane rozszerzenie , jako 
plik zleceń będzie potraktowany plik o nazwie podstawowej 
podanej w zleceniu i rozszerzeniu SUB. 

Lista parametrów może być pusta lub może mieć następującą 


postać: 
parl pare ... parn 


gdzie pari oznacza 1-ty parametr na liście, przy czym n nie 
może przekraczać dziesięciu. 

Jeśli lista parametrów zlecenia SUBMIT jest pusta, to 
zlecenia umieszczone w pliku muszą mieć jednoznacznie 
określone parametry. 

Przykładowo, jeśli plik zleceń o nazwie COPY.SUB ma 
następującą postać: 


ERA B: *. COM 
PIP B:=A: #.COM 
STAT B: #, # 


to wydanie zlecenia: 


SUBMIT COPY 
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spowoduje wykonanie kolejnych zleceń zawartych w tym pliku: 
skasowanie wszystkich plików o rozszerzeniu COM z dysku B, 
skopiowanie wszystkich plików o tym rozszerzeniu z dysku A na 
dysk B i wyświetlenie stanu dysku B. Zatem efekt wykonania 
zlecenia SUBMIT o takiej postaci jest identyczny jak w 
przypadku kolejnego wydania zleceń zawartych w pliku zleceń 
COPY. SUB. 

W przypadku zlecenia SUBMIT z niepustą listą parametrów, 
parametry zleceń są zastąpione symbolami: 


$1,$2,...$n 


W trakcie wykonywania zlecenia SUBMIT symbol $i jest 
zastępowany parametrem pari pobieranym z listy parametrów. 

Przykładowo, jeśli plik zleceń o nazwie COPYP.SUB ma 
następującą postać: 

ERA B:*.$1 

PIP B:$2:*.$1 

STAT B:*+.+* 


to wykonanie zlecenia 
SUBMIT COPYP COM A 


spowoduje te same skutki, co opisane powyżej zlecenie SUBMIT 
COPY, ponieważ symbol $1 zostanie zastąpiony rozszerzeniem 
nazwy COM, a symbol $2 - nazwą dysku A. Za pomocą tego samego 
zlecenia, lecz z innymi parametrami, można dokonać skopiowania 
plików o dowolnym rozszerzeniu, z dowolnego dysku. Przykładowo 


wydanie zlecenia postaci : 
SUBMIT COPYP PAS C 

spowoduje skopiowanie plików o rozszerzeniu PAS z dysku C. 
Jeżeli w pliku zleceń zostanie umieszczony parametr $0, 


to w jego miejsce zostanie podstawiona nazwa pliku podana przy 


wywołaniu zlecenia. 
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Przykładowo, jeżeli plik zleceń o nazwie PASCAL.SUB ma 
następującą postać: 

ERA A:*.COM 

PIP A:=$1$0 


to wykonanie zlecenia 
SUBMIT PASCAL.COK B: 


spowoduje pobranie zieceń z pliku o nazwie PASCAL.SUB i 
wykonanie następujących czynności: 

- skasowanie plików o rozszerzeniu COM z dysku A, 

- skopiowanie pliku PASCAL.COM z dysku B na dysk A. 


Strona 63 


Z programów sieci JUNET należy usunąć program HEADER. CHN. 


W rozdziale 8 dodano nowy punkt 8.5. 
PRZYKŁADY STOSOWANIA FUNKCJI SYSTEMOWYCH 


W punkcie tym przedstawimy trzy programy korzystające z 
funkcji systemowych systemu operacyjnego CP/J. W pierwszym 
programie pokazano zastosowanie ekstrakodów CONIN i CONOUT 
modułu BDNOS. Program ten realizuje funkcje prostego edytora 
wierszowego. Czytelnik powinien porównać ten program z 
ekstrakodem READ CONSOLE BUFFER modułu BDNOS, realizującym 
podobne funkcje. W drugim programie, realizującym kopiowanie 
plików, pokazano zastosowanie ekstrakodöw modułu BDNOS 
dotyczących dysków. W trzecim programie użyto funkcji modułu 
BIOS. Program ten umożliwia kopiowanie systemu operacyjnego z 


jednej dyskietki na inne. Wszystkie trzy programy napisano w 
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języku asemblera mikroprocesora Z-80. Programy te zostały 
sprawdzone i uruchomione na mikrokomputerze ELWRO 800 Junior 
pod kontrolą systemu operacyjnego CP/J za pomocą 


makroasemblera M80 i programu łączącego L80. 


Przykład 1 


, Program ten jest implementacją prostego edytora wierszowego 
,umożliwia on wczytanie wiersza znaków o maksymalnej 

; długości MAXlith 

,;wozytany wiersz jest wyświetlany na ekranie 

wczytywanie wierszy jest kończone znakiem CR lub LF 
,błędnie wpisane znaki można poprawiać klawiszem BS 
,wczytane znaki są zapisywane do pamięci 

,począwszy od adresu BUFOR 

;liczba wczytanych znaków przekazywana jest w zmiennej 


znajdującej się w pamięci pod adresm BUFith 


e 
, 


z80 

aseg 

org 100h ;lokacja TPA 
GR equ Odh ; CARRIAGE RETURN 
LF equ Oah ; LINE FEED 
BS equ 08h ; BACKSPACE 
BELL equ 07h Sygnał dźwiękowy 
SPACE equ 20h , spacja (odstęp) 
ESC egu 1bh ; ESCAPE 
Ctrlz equ lah ,znak końca bufora wierszy 
MAXIth equ 20 ; maksymalna liczba 


,wczytywanych znaków 
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BDNOS equ 


FconI¥ equ 
FconOUT equ 


0005h 


01h 
02h 


;adres wywołania 
¿systemu operacyjnego 
;ekstrakod CONIN 
;ekstrakod CONOUT 


;poczatek programu, inicjacja zmiennych 


1d 
ld 
ld 
ld 
ld 
call 


call 


call 
NOchar: call 


ret 


ret 


ADDchar: push 


Cc p 
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hl, BUFOR 
(hl), Ctr1Z 
a,l 
(BUFIth),a 
a, CR 
CONOUT 

a, ESC 
CONOUT 
a,'K' 
CONOUT 
CONIN 

CR 


Z 


BS 

z, BSchar 
SPACE 

c, NOchar 
af 


a, (BUFlth) 
a 
(BUFIth),a 
MAXI th 

nc, noADD 


Ca 


wpisanie znaku końca 

; bufora do pamięci 

;, liczba znaków w buforze 
,do pamięci 

;,czyszczenie wiersza 

„na ekranie 

; przez wysłanie kodu 
‚sterującego mazania 


„ekranu do końca wiersza 


;petla wczytywania znaków 
,analiza wczytanego znaku 
,wyjście dla znaków CR 
;1 LF kończących wiersz 


;skok dla znaku BS 


„pomijanie znaków sterujących 


;dodanie wczytanego 
,znaku do bufora 
;sprawdzenie przepełnienia 
;, bufera 

„z uaktualnieniem jego 
„długości w pamięci 

; przepełnienie to skok 
; dodanie znaku 


liczba wczytanych znaków 
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pop 


dec 


dec 


noADD: dec 


BSchar: ld 


call 


call 


af 


hl, BUFOR 
b,0 


hl 

hl, bc 
(hl), Ctr1Z 
hl 

(hl),a 
NOchar 


a 
(BUF1th),a 


af 

a, BELL 
CONOUT 
a, BS 
CONOUT 
a, SPACE 
CONOUT 
a,BS 
CONOUT 
NOchar 


a, (BUF1th) 
2 

c, NOchar 
a, SPACE 
CONOUT 

a, BS 
CONOUT 

hl, BUFOR 
a, (BUF1th) 


c,a 
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;odzyskanie kodu 
,wczytanego znaku 

; zapisanie znaku do bufora 
;wyliczenie adresu znaku 


;w buforze 


„adres końca bufora w HL 


;zapis znaku końca bufora 


;Zapis znaku do bufora 
;1 skok do pętli 


;pominiecie wczytanego znaku 
z uaktualnieniem liczby 
,wczytanych znaków 

;kod znaku w rejestrze A 
;sygnalizacja przepełnienia 
; bufora 

; zmazanie wczytanego znaku 
ız ekranu 

; przez wpisanie w jego 

; miejsce spacji 


; cofniecie kursora 

;1 skok do pętli 
zmazanie poprzednio 
,wczytanego znaku 

; skok gdy bufor pusty 
;mazanie znaku na ekranie 


„cofnięcie kursora 


„aktualizacja bufora 


,długość bufora w rejestrze A 
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ld b, 0 ;i w parze rejestrów BC 


dec bc ;wyliczenie adresu końca 

add hl, bc ;bufora w parze rejestrów HL 
dec hl ;pominiecie ostatniego znaku 
ld (hl),Ctr1Z ;zapis znaku końca bufora 
dec a ;zmiejszenie długości 

ld (BUF1th),a ;bufora 

ir NOchar :i powrót do pętli 


; procedury bezpośrednio korzystające z ekstrakodów 
;systemu operacyjnego CP/J 


CONIN: ld c,FconI¥ ;ekstrakod CONSOLE INPUT 
call BDNOS ;wywotanie systemu operacyjnego 
ret ; procedura czeka aż do 


,odebrania znaku z klawiatury 
,odebrany znak jest wyświetlany 
;ha ekranie, a jego 

;kod jest przekazywany 


;w rejestrze A 


CONOUT: ld e,a ; wysłanie znaku z rejestru 
1d c, FconOUT ;A na ekran monitora 
call BDNOS ; wywołanie ekstrakodu 
ret ,i powrót 
, 
BUFOR: defs MAXIth ;bufor wczytywanych znaków 
BUFlth: defb 1 ;liczba wczytanych znaków 
end 
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Przykład 2 


;Program kopiujący pliki dyskowe 

; program kopiuje plik o nazwie podanej jako pierwszy 
;parametr do pliku o nazwie będącej drugim parametrem 
;program jest wywoływany przez 

; COPY d:nazwal d:nazwa2 

,nazwy plików będących parametrami są kopiowane do pamięci 
‘przez moduł CCP pod adresy #5c i #6c przed uruchomieniem 


; programu 
. 280 
aseg 
org 100h ;lokacja TPA 
BOOT equ 0000h ;reinicjacja systemu 
BDNOS equ 0005h ,adres wywołania systemu 
FCB1 equ 005ch ;adres pola FCB pierwszego 
;pliku - źródła 
FCB2 equ 006ch ;adres pola FCB drugiego 
;pliku - przeznaczenia 
sFCB equ FCBI 


;pola FCB są przygotowywane przez moduł CCP systemu 
; operacyjnego na podstawie wczytanych wraz z nazwa 


;zlecenia parametrów - nazw plików 


dBUFF egu 0080h ‘adres bufora transmisji 
; dyskowych 
printF equ 9 -ekstrakod PRINT BUFFER 
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openF equ 15 ;ekstrakod OPEN FILE 


closeF equ 16 ;ekstrakod CLOSE FILE 
deletF equ 19 ;ekstrakod DELETE FILE 
readF equ 20 ;ekstrakod READ SEQUENTIAL 
writeF equ 21 ;ekstrakod WRITE SEQUENTIAL 
makeF equ 22 ;ekstrakod MAKE FILE 

CR equ Odh ; CARRIAGE RETURN 

LF equ Qah ; LINE FEED 


,początek programu 


ld sp, STACK „ustalenie adresu stosu 
„kopiowanie drugiego pola FCB 
;pole to pokrywa sie częściowo z polem FCB dla pierwszego 
,pliku, dlatego trzeba je skopiować w inny obszar pamięci 


, 


ld bc, 16 kopiowanie 16 bajtów - nazwy 
ld de, FCB2 ,adres przeznaczenia w DE 

1d hl, dFCB ;adres źródła w HL 

ldir ; kopiowanie 


,nazwa skopiowana, wyzerowanie pola cr w drugim polu FCB 
XOT a ; wyzerowanie akumulatora 
ld (dFCBcr),a ;i pola cr 

oba pola FCB przygotowane 


1d de, sFCB „otwarcie pliku-źródła 
call OPEN ;gdy A=255 to błąd otwarcia 
1d de, noFILE ; adres komunikatu błędu 
inc a Sprawdzenie kodu błędu 
call z,FINIS ;jeśli błąd, to wyjście 


16 7110.5006—01 33—0 (12.87 


;plik źródłowy otwarty 


1d 
call 
ld 
inc 
call 


de, dFCB 
DELETE 


de, dFCB 
MAKE 

de, noDIR 
a 
z,FINIS 


;adres pola FCB drugiego pliku 
;usuniecie ewentualnej starej 
;wersii plizu 

;utworzenie pliku-przeznaczenia 
,i jego otwarcie 

;gdy A=255 to bład - brak 
„miejsca w katalogu dyskietki 
;wyjscie z sygnalizacją błędu 


;pliki źródłowy i docelowy otwarte 


: kopiowanie zawartości pierwszego pliku do drugiego 


, 


COPY: Id 


+ 


de, sFCP 
READ 
a 


nz, EOFile 


,czytanie w pętli kolejnych 
;rekordow pierwszego pliku 
;gdy akumulator różny od zera, 


;to koniec pliku i skok 


„jeszcze nie osiągnięto końca pliku źródłowego 


;zapisanie następnego rekordu do pliku docelowego 


1d 
call 


EOFile: ld 


inc 


call 


de, dFCB 
WRITE 
de, noSPACE 


a 

nz, FINIS 
COPY 

de, dFCB 
CLOSE 
de, wr PROT 
a 

z,FINIS 


„kopiowanie zakończone 
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,adres pola FCE drugiego pliku 
;zapis rekordu na dyskietkę 
;gdy akumulator różny od zera. 
ito błąd zapisu 

;gdy A = 00, to zapis poprawny 
,skok w przypadku błędu 

;skok do pętli 

, koniec kopiowania, zamknięcie 
,pliku docelowego 


,błąd nie powinien wystąpić 


gdy błąd to wyjscie 
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FINIS: 


ld 


ld 


call 


Jp 


de, NORMAL 


c,printF 
BDOS 
BOOT 


; komunikat o poprawnym 

; zakończeniu kopiowania 
;druk komunikatu i wyjście 
;do systemu operacyjnego 


; (Teinicjacja systemu) 


,procedury wywoływania ekstrakodów 


,powrót bezpośrednio z modułu BDNOS 


. 
$ 


OPEN: 


CLOSE: 
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ld 
JP 


1d 
Jp 


1d 
call 


ld 


cali 


ld 
call 


ld 


call 


c,openF 
BDNOS 


c,closeF 
BDNOS 


c,deletF 
BDNOS 


c,readF 
BDNOS 


c,writeF 
BDNOS 


c,makeF 
BDNOS 


;Otwarcie pliku dyskowego 


;zamkniecie pliku dyskowego 


;usuniecie pliku z dyskietki 


;odczytanie jednego rekordu 


ız pliku 


;Zapisanie jednego rekordu do 
; pliku 


;utworzenie pliku dyskowego 
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;komunikaty programu 


nOFILE: defb 
noDIR: defb 

defb 
noSPACE: defb 
wrPROT: defb 
NORMAL: defb 


‘Brak wskazanego piiku',CR,LF,'$' 

‘Brak wolnego miejsca w katalogu dyskietki' 
CR, LF, '$' 

'Odczyt spoza obszaru pliku???',CR, LF, '$' 
'Protekcja zapisu???',CR,LF, '$' 

"Kopiowanie zakończone poprawnie' ,CR, LE, '$' 


,obszar zmiennych programu 


dFCB: defs 
dFCBcr equ 
defs 
STACK: 
end 


32 „miejsce na pole FCB drugiego 
; pliku 

dFCB+32 ;adres pola cr w polu FCB 

32 ;lokalny stos programu 
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Przykład 3 


è 

; Program kopiowania systemu operacyjnego SYSGEN 

p 

;program kopiuje system z dwoch pierwszych sciezek 
;dysku A: na dysk B: 

;program jest wywoływany zleceniem 


; SYSGEN 
¿działanie programı można przerwać wciskając 
;klawisz ESC 

.Z80 

aseg 

org 100h ; lokacja w TPA 
BDHOS equ 0005h ;adres wywołania systemu 
BOOT equ 0000h ,reinicjacja system 
i 
CR equ Odh ; CARRIAGE RETURN 
LF equ Qah ;LINE FEED 


;ekstrakody modułu BDNOS 


setDMA equ lah ;ustalenie adresu bufora 
printF equ 9 ;pisanie komunikatu na ekran 
CONSIN egu 1 ;czytanie znaku z klawiatury 


;funkcje modułu BIOS 


. 
, 


selDSK equ 1bh ;wybranie dysku 

setTRK equ leh ;wybranie ścieżki 

setSEC equ 21h ;wybranie rekordu na ścieżce 
readSEC equ 27h ; odczytanie rekordu z dyskietki 
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writeSEC equ 


zah 


;poczatek progranu 


1d 
ld 
call 


ACTION: 1d 
ld 
call 
1d 
or 

errDSK: ld 
Jp 
ld 
ld 
xor 
ld 
ld 

loop: ld 
ld 
call 
ld 
1d 
add 
ld 
1d 
1d 
1d 
call 
1d 
1d 
lå 
call 
ld 


sp, STACK 
de, mess1 
MESSAGE 


c, 0 

de, sel DSK 
BIOS 

a, h 

1 
de,errDK 
Z, ERROR 
de, DMA 
(BDMA) , de 
a 
(track) ,a 
(sector),a 
de, (BDMA) 
c, setDMA 
BDEOS 

de, (BDMA) 
hi, 80h 
hl,de 
(BDMA) , hl 
a, (track) 
c,a 

de, setTRK 
BIOS 

a, (sector) 
c,a 

de, setSEC 
BIOS 

de, readSEC 
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;,zapisanie rekordu na dyskietkę 


; lokalny stos programu 

;druk komunikatu 'Dyskietka ...' 
;i czekanie na wciśnięcie 
;dowolnego klawisza poza ESC 
;wybranie dysku A: 

; funkcja wyboru dysku 

; wywołanie modułu BIOS 

; jeśli HL=0000, to błąd 


;biad, to koniec pracy programı 
;1 powrót do system 
;ustalenie adresu bufora 

; dyskowego 

ustalenie zmiennych programu 
;czytanie od zerowej ścieżki 
;i zerowego sektora 

;petla czytania system 

;Z dwóch pierwszych ścieżek 
;ustalenie adresu bufora 
;wyliczenie adresu następnego 


;rekordu w buforze 


si zapisanie go do pamięci 
;wybranie ścieżki na dysku 


„wywołanie funkcji BIOS 
; wybranie rekordu na ścieżce 
; wywołanie funkcji BIOS 


;czytanie jednego rekordu 


21 


call 


and 
jr 


1d 
ERROR: ld 
call 


Jp 


next: ld 
inc 
ld 
cp 
jr 
xor 
1d 
1d 
inc 
1d 
CP 
jr 


BOOT 


a, (sector) 
a 
(sector),a 
36 

nz, loop 

a 
(sector),a 
a, (track) 
a 
(track),a 
2 


nz, loop 


; brad, to wyjście z programu 
;skok gdy odczyt bezbłędny 


;komunikat 'Błąd odczytu ... 
;,wyświetlenie komunikatu 


;1 wyjście 


;wyliczenie parametrów 


; następnego rekordu 


;gdy nie osiągnięto końca 

; Ścieżki, to skok do pętli 
;odczytanie zerowego sektora 
;nastepnej ścieżki 

;nastepna ścieżka 


;Skok do pętli dla pierwszych 
;dwoch ścieżek dyskietki 


;system operacyjny przeczytany z dysku A: 


;kopiowanie systemu na dysk B: 


actnl: ld 
call 


xor 
ld 
ld 
la 
ld 
ld 
ld 


22 


de, mess2 
MESSAGE 


a 
(track),a 
(sector),a 
de, DMA 
(BDMA) , de 
c,i 
de,selDSK 


,komunikat 'Dyskietka ...' 
;drukowanie komunikatu i czeka- 
;nie na wciśnięcie klawisza 

; ustawienie zmiennych programu 
«zerowanie numeru ścieżki 

şi rekordu 


,ustalenie adresu bufora 


;wybranie dysku B: 
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loopl: 


parC: 


call 


call 


call 


call 


and 


BIOS 
a,h 

1 
z,errdsk 


de, (BDMA). 


c,setDMA 
BDNOS 

de, (BDMA) 
h1,80h 
hl,de 
(BDMA), hl 
a, (track) 
c,a 

de, set TRK 
BIOS 

a, (sector) 
c,a 

de, setSEC 
BIOS 


de, writeSEC 


a, (track) 
c,a 

a, (sector) 
a,c 

36 

c,l 

nz, parCl 
c,2 

BIOS 

a 

de, rwER 
nz, ERROR 
a, (sector) 
a 


(sector),a 
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;wykonanie funkcji modułu BIOS 
;błąd braku dysku, to HL=0000 


;Skok gdy wykryto błąd 
;petla zapisywania rekordów 
ına dysk 


„ustalenie adresu bufora 


„ustalenie adresu następnego 


„rekordu w buforze 


; wybranie ścieżki na dysku 


;wywotanie funkcji modułu BIOS 


;wybranie rekordu na ścieżce 


wywołanie modułu BIOS 


; funkcja zapisu rekordu na dysk 


„ustalenie parametru funkcji 


,gdy ostatni zapisywany rekord, 
;to parametr funkcji wynosi 2 
;35 sektor / 1 ścieżka ? 


; inaczej parametr jest równy 1 


,parametr w rejestrze C 
;zapisania rekordu na dysk 
;gdy błąd, to skok 


;z wyświetleniem komunikatu 


,ustalenie parametrów następnego 


; rekordu na dysku 


cp 
jr 
xor 
ld 
ld 
inc 
ld 
cp 
jr 
ld 
call 


and 


cp 


Jp 
Jp 


36 
nz, loopl 


a 


(sector),a 


a, (track) 
a 
(track),a 
2 

nz, loopl 
de, comp 


message 


Sfh 
‘Tv! 


z,actnil 
BOOT 


; podprogramy pomocnicze 


MESSAGE: 1d 


BIOS: 


24 


call 
ld 
call 
cp 
Jp 
ret 


ld 
dec 
dec 


dec 


add 
JP 


c,printF 
BDNOS 

c, CONSIN 
BDNOS 
ESC 

z, WBOOT 


hl, (1) 
hl 
hl 
hl 


hl, de 
(hl) 


; sprawdzenie końca ścieżki 
,skok gdy nie koniec 


;zerowy sektor następnej ścieżki 


; następna ścieżka 


s koniec drugiej ścieżki 

;to wyjscie z pętli 

; komunikat 'Kopiowanie ... ' 

; drukowanie komunikatu i wczy- 
; tanie znaku z klawiatury 
;przejscie na duże litery 

,gdy wczytanym znakiem jest 'T' 
;to powtórne kopiowanie 

; skok do pętli kopiowania 


;inaczej reinicjacja systemu 


;drukowanie komunikatu według 
;adresu z pary rejestrów DE 


,wczytanie znaku z klawiatury 


;ESC to wyjście z programu 
;reinicjacja system 


; inaczej powrót 


; wyliczenie adresu wejścia 

;do funkcji modułu BIOS 

;wediug zawartości rejestrów DE 
şi adresu funkcji WBOOT 
,odczytanej z pamięci z komórek 
; #0001-#0002 

,adres odpowiedniej funkcji w HL 
; wykonanie funkcji 
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; komunikaty programu 

i program korzysta z kodów sterujących ekranu 'ESC p' 

;1 ‘ESC q' ustalających sposób wyświetlania znaków 

(w negacji lub normalnie) 

TwER: defb CR, LF, 'Błąd odczytu/zapisu dyskietki$' 

comp: defb CR, LF, LF, ' Kopiowanie zakończone! ,CR,LF, LF 
defb 'Zapis następnego systemu (T/N)?$' 

errDK: defb CR, LF, ' Brak dysku??7$' 

messl: defb CR, LF, LF, ' Dyskietka systemowa w napędzie A:' 
defb CR, LF, LF, ESC, ' p' 
defb ' naciśnij dowolny klawisz ',ESC,'q$' 

mess2: defb CR, LF, LF, ' Dyskietka nagrywana w napędzie B:' 
defb CR, LF, LF, ESC, 'p' 
defb ' naciśnij dowolny klawisz ',ESC,'g$' 

,obszar zmiennych programu 


track: defb 0 , numer ścieżki 

sector: defb 0 ; numer rekordu na ścieżce 

BDMA: defw BUFOR ;adres bufora na system (10 kB) 
defs 32 ; lokalny stos programu 

STACK: 

BUFOR: defs 1024110 ; bufor na system operacyjny 
end 
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SKOROWIDZ ZLECEŃ 


Uzupełniono format zlecenia CHKDSK 


Format zlecenia winien być: 
CHKDSK td:) 


ZLECENIE DIR 
Zlecenie nie wyświetla plików o warunkach dostępu SYS i R/W. 


Dodano zlecenie DISKCOPY 


Składnia zlecenia: 

DISKCOPY (dl:=d2) 
Zlecenie kopiowania zawartości dyskietki. Zlecenie może być 
wykonywane tylko przez mikrokomputery posiadające prywatne 
stacje dysków. 


Dodano zlecenie PUBLIC 


Składnia zlecenia: 
PUBLIC d: nnnnnnnn.ttt 
Zlecenie nadawania plikom atrybutów SYS i R/O. Nazwa pliku 


musi być jednoznaczna. 


Dodano zlecenie LOCAL 


Składnia zlecenia: 
LOCAL d: nnnnnnnn. ttt 
Zlecenie nadawania plikom atrybutów DIR i R/W. Nazwa pliku 


musi być jednoznaczna. 
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Dodano zlecenie SPBAS 


Składnia zlecenia: 
SPBAS 
Zlecenie zmiany trybu pracy mikrokomputera z trybu CP/J na 


tryb Spectrum. 


Dodano zlecenie SUBMIT 


Składnia zlecenia: 

SUBMIT d:nnnnnnnn.ttt (parl par2 ... parn) 
Zlecenie wykonania ciągu zleceń zapisanych w pliku zleceń O 
dowolnej nazwie podstawowej i rozszerzeniu SUB. Zlecenia 
umieszczone w pliku zleceń mogą być jednoznacznie zdefiniowane 


lub posiadać parametry. 


Dodano zlecenie UDIR 


Składnia zlecenia: 

UDIR (d:) (tn) 
Zlecenie wyświetlania katalogów plików użytkowników. Wydanie 
zlecenia bez parametru 'n' powoduje wyświetlenie katalogów 


wszystkich użytkowników. 


Dodano zlecenie USER 


Składnia zlecenia: 

USER n 
Zlecenie zmiany numeru użytkownika. Numer użytkownika musi być 
podany jako liczba dziesiętna z zakresu od 0 do 15 lub liczba 


szesnastkowa z zakresu od 0 do F. 
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Druk: ZE „ELWRO” - zlec. 57/88 - 2500 A5 


